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eee Bog 9 MULE MAKACE © | ncunge caLiss32» 
1001 'CDs0004 $08 IDENT = Rireith " ; 
3 6-1 Boe )s : 
; 5 b2 BEGIN 3 
ae Sof 1: : 
4 8 B08 : POSES ESSES SITET TI TIT IT IT TT TT LTATTLiLitiLititit yt ° 
; '® 3 
. 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 3 
: 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * é 
; \§ Bai¢ : os ALL RIGHTS RESERVED. * : 
4 . w . 
$ 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
.. 3S 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
; 16 8018 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY e : 
: i +4 : :* TRANSFERRED. * : 
3 'e . $ 
3 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
H $§ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
5 Si 88 : :* CORPORATION. * : 
4 . & * 
3 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS . : 
; $$ 8 $ ; > SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : : 
: 28 0028 1 ie ® : 
3 9 ait : leeePeRAeHAAAARAHAHHAAAHARHAHAHHHAHeeKeKeeHHHKeeeeeeeneeeeeeneeeeeeeeneneenee P+ 
; 0 3 
3 1 0031 : 1+¢ : 
: : 3 j : FACILITY: FIIACP Structure Level 1 ; 
a 5 ! ABSTRACT: r 
: 80 1 This routine makes the necessary hookups in the |/0 database to ; 
3 0038 1! reflect a new file access. 3 
3 9 84 1 ! ENVIRONMENT: ; 
3 40 01! 3 
; «41 Ba STARLET operating system, including privileged system services : 
: 4 ; 1! and internal exec routines. This routine must be called : 
i) & 1! in kernel mode. : 
: 4G 4 1! b 
>. & 5 1 !e- 3 
7 ae : 
i 48 8 1 | AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 17:28 : 
3 20 9 1 | MODIFIED By: ; 
[001 !CDSG006 é 1 i v04-001 cDS0004 Christian D. Saether 14-Nov-1984 ; 
2006 'COS 1] Remove test for directory here. It must check the : 
sty see : : file header instead in ACCESS. : 
; 5 $1: vO3-004 cDs0003 Christian D. Saether 19-Apr-1984 : 


! 
ump REFCNT in Fcb. Do not bump other counts if | 
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v02-001 


-Jan-1985 1 AX-11 Bliss-32 V 
b-an-1985 18: 1g; i FIIX. BuGSReTRAKAC 
this is NOACCLOCK. Remove reference to old dirfcb index. 

stian 0, 5 ether 22-Mar-1984 


Set Onn re TURN thag — wCB ndex file, storage bitmap, 
or a directory is 6 eing write accessed. 


CdS0001 Christian 0. Saether 30-Dec-1983 

Use L_NORM Linkage and BIND_COMMON macro. 

LMP005S9 L. Mark Pilant, 46-Jan-1983 12:28 

Don't insert the FCB into the queue as it is done when the 

FCB i. created. 

LMP0003 L. Mark Pilant, 20-Nov-1981 9:30 
Rodi ty so that ail the segments to a window get inserted into 

the window queue. 

ACG0167 Andrew C. Goldstein Lg, rorn1900 19:26 

Previous revision history moved to f11B.REV 


LIBRARY ‘SYSSLIBRARY:LIB. L32"; 
REQUIRE ‘SRC$:FCPDEF .B32'; 
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PMSSGL_CPEN : ADDRESSING_MODE (ABSOLUTE), : 

: oyatee count of currently open files 
PMSS$GL_OPENS : ADDRESSING_MODE (ABSOLUTE); 

! system count of files opened 


! Now hook the window onto the FCB and adjust the access counts 
4 according to the access control bits in the window. 


; es 1078 } GLOBAL ROUTINE MAKE_ACCESS (FCB, WINDOW, ABD) : L_NORM NOVALUE = 
; 8 1074 1 !e4 

; § 1075 1! 

: o? 1978 : FUNCTIONAL DESCRIPTION: 

; 1998 1! This routine makes the necessary hookups in the 1/0 database to 
; + 34 4 : reflect a new file access. 

: «6288 1081 1 =! CALLING SEQUENCE: 

: 8 1088 : MAKE ACCESS (ARG1, ARG2, ARG3) 

; (91 18 4 1 ! INPUT PARAMETERS: 

; ¥ 1085 1! ARG1: address of FCB to access 

: = 1986 1! ARG2: address of window to Link up 

; 8694 1087 1! ARGS: address of buffer descriptors 

; WW 1088 #1! 

; 9% 1089 1 ! IMPLICIT INPUTS: 

3 44 ey ! CURRENT_ViB8: VCB of volume in process 

; 299 1092 1 ! OUTPUT PARAMETERS: 

: 100 1095 1! NONE 

; 101 10946 1! 

: 108 1095 1! IMPLICIT OUTPUTS: 

: 10 1998 1! NONE 

3 6104 1097 1! 

; 105 1098 1 ! ROUTINE VALUE: 

; 106 1099 1! NONE 

: 107 1100 1! 

: 108 1101 1 ! SIDE EFFECTS: A : 
: 109 1198 7 3 VCB transaction count bumped, access counts in FCB adjusted, 
s 19 1103 1! FCB and window hooked up. 

. 39) . 1106 1! 

: ie 1105 1 !-=- 

; 11 1106 1 

: 116 1107 2 BEGIN 

. Tas 1108 

: 116 1109 MAP 

a? ar 111 FCB : REF BBLOCK, ' FCB arg 

: 118 111 2 .. WINDOW : REF BBLOCK, ' window arg 

; 119 111 ABD : REF BBLOCKVECTOR C,ABDSC_ ENGTH); 

: 120 111 ' buffer descriptor arg 
3. 121 111 

: $8 , en LOCAL 

: ; 7 1a: WINDOW_SEGMENT : REF BBLOCK; ! address of the current window segment 
3 136 11 BIND_ COMMON; 

: 126 111 

s te7 11 EXTERNAL 

; is i 

: 180 11 

3; «131 11 

: 13 11 

; 13 11 

: i 11 

; 135 11 


BWA NEW —OOONOUS WN Oo 


N 
MAKACC -Jan-1985 18:12:07 AX-11 Bliss-32 V4.0-742 
v04-001 § 19:97 F11X.BUGSRCJMAKACC .832;1 


aaa canta = WINDOW; 

BEGIN 

INSQUE (.WINDOW_SEGRENT, gb CBCE CES WLBLI); 

BIOOE_SeOENT = WINDOW _SEGMENTCWCBSL_LINKI; 

UNTIL .WINDOW SEGMENT EQL 0; 

FCB CFCBSW_REFCNT) = .FCB CFCBSW_REFCNT] + 1; =! bump reference count 
IF_NOT .WINDOW CWCBSV_NOACCLOCK) 

THEN 


BEGIN 

FCBCFCBSW_ACNT] = .FCBCFCBSW_ACNT) + 1; ! bump access count 
IF vine ecesy NOREADJ 

THEN FCBCFCBSV_ERCL) = 1; ! set exclusive access 


IF -MINDOUCUCESY NOWRITE) 
THEN FCBCFCBSW_LENT) = .FCBCFCBSW_LCNT] + 1; ! no writers 


IF .WINDOWCWCBSV_NOTRUNC) 
THEN FCBCFCBSW_TCNT] = .FCBCFCBSW_TCNT] + 1; ! no truncates 


END; 


! For a write access, bar the writer count. If this is the 
! first write, and the file is the index file or the storage map, set 
the appropriate flag in the VCB. 


IF .WINDOWCWCBSV_WRITEJ 
HEN 
BEGIN 
IF .FCB CFCBSB_FID_NMX) EQL 0 
THEN 
BEGIN 
IF .FCBCFCBSW_FID_NUM) EQL 1 
THEN 


BEGIN 
CURRENT _VCBCVCBSV_WRITE iF 21; 
WINDOW [TwCBSV_WRITE_TURN] = 1; 


C909 C9 C8 ISIN SIN NNSA AAAAAAAAMMNMMIAIMIVUIVIE BEEPS ELE 


IF _ .FCBCFCBSW_FID_NUM) EQL 2 
THEN 


BEGIN 
CURRENT VCBCVCBSV_WRITE - = 1; 
WINDOW TWCBSV_WRITE_TURR] = 1; 


Oe a ee ee el a ee ee ed ee ee a a ee ee ee ee ee ee ee ce el ee ad ad ed ad 

ee ae et ee ee a ae a ee a a cl a a a cl el ee ae ee ee ee a el el ee el el el ee ee eld ed ed 

©9090 09 0909098 SINS SIN NINN NSIOOO OD PUPVPVPV VSS EB BB BBB BE EAI 

MPU 20 OONO ME WN $$ O OONOAUE WN $9 OONAUE WN $0 DOONAN @OVODONOUFS WO” 
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a8 END; 
os i NOT .WINDOW CWCBSV_NOACCLOCK) 
99 FCBCFCBSW_WCNT) = .FCBCFCBSW_WCNT) + 1; 


CNAME AO OOO 


wr 


SServeURUn=SSBLFAFALES 
a a a dd a od 
RIPIRIPIPIPIRY at ae a et ot et ot ot 2 = 


Se ee Oe Oe Oe Oe ee Oe Oe OH Oe Oe Se BH SH ee oe BH Se Oe we 
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END; 


' Count the access in the volume transaction count and return 
} the window address for the user's CCB. 


PMSSGL_OPEN = .PMSSGL_OPEN + 1; ! bump open file count 
PMSS$GL ahi = ,PMS$GC OPENS + 1; ' bump count of opens 
CURRENT _VCBLVCB$W_TRANS) = .CURRENT_VCBLVCB$W_TRANS) + 1; 


ABDCABDSC_WINDOW, ABDSW County = 4; ' enable write-back 
-ABDCABDSC_WINDOW, ABDSO_TEXT] + ABDCABDSC_WINDOW, ABDSW_TEXT] + 1 = .WINDOW; 
! put window address in buffer text 


} Mark the access complete in the cleanup action flags. 


CLEANUP_FLAGSCCLF_DEACCESS) = 1; 
1 END; ! end of routine MAKE_ACCESS 
-TITLE MAKACC 
-IDENT \Vv04-001\ 
-EXTRN PMSSGL_OPEN, PMSS$GL_OPENS 
-PSECT SCODES,NOWRT,2 


0000 60008 -ENTRY MAKE_ACCESS. Save nothing ; 107 
3 x tanec a8 eee ete 
16 BO 61 O€ OOO0A INSQUE (WINDOW SEGMENT), @20(RO) : 
51 20 Al OD 99 32(WINDOW_SEGMENT), WINDOW SEGMENT + 1134 
F2 1 1 BNEQ ss} > 1136 
50 06 AC D 14 MOVL FCB, RO : 1138 
18 Ad 86 00018 INCW © 24(RC) 3 
0 08 ac D 1B MOVL WINDOW RO + 1140 
37 16 AO 02 € 1F 5 #2, 20(RO), 4$ ; 
50 “ao MS 4 VL FCB, RO > 1144 
1A OA 86 A INCW 26 (RO) ; 
50 08 aC D VL WINDOW RO + 1146 
- $9 04 g +, , w H 8 ino). - 2 1147 
22 «AO 08 5 BISB2 #8.’ 30cRO) : 
50 08 ac D c 2s: VL wiNDOW, 0 > 1149 
? 146 AO € BLBC 20(R0). 3$ ; 
04 aC DO 4 MOVL FCB rb + 1150 
1€ AO B 8 INCW 30(RO) F 
50 0 AC D B 3S: VL WINDQy RO : 1152 
07 16 A 03 €E . BBC #3, 21¢RO), 4$ ; 
: 4 Ac 00 4 MOVL FCB, RO : 1153 
9 AO 8B 8 INCW = 32(RO) ; 
o «= i Ai ahap oe: HHMI Ps vee 
8 04 AC DO 00064 MOVL FCB, RO > 1165 


as 


File Total Loaded Percent Mapped Time 
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29 ao 9 8 TSTB =—s-_- & 1 (RO) : 
30 1 6 B BNEQ $ 3 
01 24 «OA e CMPW 6(RO), : 1168 
1 BNEQ $ 3 
50 98 AA p 7 MOVL Hoang, RO + 1171 
08 Ad 01 0 7 B1SB2 : 
5 08 AC p 7B MOVL WINDOW, RO + 1172 
15 AO 1 7F BISB2 #16, 21 RO) : 
50 06 ac OD 3 5$ MOVL FCB + 1175 
02 24 nS 8] cMPY 36(KO), 42 ; 
5 98 AA 6 5 MOVL “ent ASE), RO : 1178 
08 Ht 02 8697 B1SB2 1% 35) : 
50 08 AC b9 099 MOVL hoow RO : 1179 
15 Ad 10 99 B1SB2 aia an : 
5 08 AC 00 09D 6$: MOVL PS + 1183 
07 14 AO 02 €0 000A1 BBS ‘ Din), : 
 ooste fo SM It hee 
000000006 9F D6 OOOAD 7S: INCL  @#PMSS$GL_OPEN + 1193 
000000006 9F D6 008 INCL  a@#PMSS$GL~ OPENS + 119% 
” bc AO Be DBD IT 0) pm Sidon 
50 ¢ ac D0 000 MOVL , RO : 1197 
02 AO 04 : 00C4 MOVW 4, 2(RO) : 
50 0c BC 3C 000C8 MOVZWL @ABD, RO > 1198 
50 OC ac CO 000CC ADDL2 D, RO : 
01 AO 08 aC 00 00000 MOVL WINDOW 1(RO) : 
02 AA 01 88 00005 BISB2 2 (BASE) > 1204 
04 00009 RET : 1206 
; Routine Size: 218 bytes, Routine Base: S$CODE$ + 0000 
3 221 1207 1 
3 222 1208 1 END 
: 223 1209 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 218 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: eecceecen Symbols eceeceesce Pages Processing 


52 


s Flapsed. Time: 00:33 
: Lines/CPU Min: 809° 

: [Neenngy Ale Haag 46856 
: cenety Used: 232 pages 
; Compilation Complete 
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MAKACC B-Jan-19 51 1:97 art Bliss-32 V4.0-742 Page 7 
v04-001 -0¢t-1984 12:45:34 F11X.BUGSRCJMAKACC.832;1 (2) 
+ .$255$0UA18:CSYSLIBILIB.L32;1 18619 40 0 1000 00:02.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MAKACC/OBJ=OBJ$:MAKACC MSRC$:MAKACC/UPDATE=(BUG$:MAKACC) 
; Stee: shia code + 0 data bytes 

un Time 2-8 


De Se Se Be Se Se Be Se Se Se Se Be Se Se Se Se Se Se Se Be Se he Se Oe Se Se Se Se Ge Se Se Se Se Se Se Se Se Oe Se Se Se Se Se Se Se Se Se Se Oe ee HOH SEOs Be esas 


1443 VaX/VNS V4.1 SRC_LST MCRE UPD 


